home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / misc / ftrans12.lha / FTCed.ced < prev    next >
Text File  |  1994-04-22  |  3KB  |  95 lines
  1. /* $VER: FTCed.ced 1.0 (Mar 24 1994)
  2.  *
  3.  * FTrans-CygnusEd ARexx-Script (c) Copyright 1994 by Rainer Hess
  4.  *
  5.  * Jan  8 1994 - Jan 10 1994 - Jan 12 1994 - Mar 24 1994
  6.  */
  7.  
  8. options results
  9.  
  10. CR = '0A'X                     /* Carrige Return                    */
  11. BLOCKFILE  = 't:FTransWort'    /* Dateiname für Austausch festlegen */
  12.  
  13. /*
  14.  * rexxcedsupport.library einbinden.
  15.  */
  16.  
  17. if ~show('l',"rexxcedsupport.library") then do
  18.    call addlib 'rexxcedsupport.library',0,-30,0
  19.    if (result = 0) then do
  20.      okay1 "Die rexxcedsupport.library kann nicht eingebunden werden!" CR || "Evtl. ist die rexxcedsupport.library nicht installiert..."
  21.      exit
  22.    end
  23. end
  24.  
  25. /* --- ob FTrans aktiv ---*/
  26.  
  27. if ~show( 'p', 'rexx_FTrans' ) then do
  28.   okay1 "Oops! FTrans ist nicht aktiv." CR || "Bitte FTrans aktivieren..."
  29.   exit
  30. end
  31.  
  32. /* --- CygnusEd --- */
  33.  
  34. on = 0                         /* Merker vorbesetzen                    */
  35.  
  36. address 'rexx_ced'             /* CygnusEd Arexx-Port suchen            */
  37.  
  38. status 11                      /* Layout Abfragen                       */
  39. if( result = 1) then do        /* Wenn Layout ein dann ausschalten!     */
  40.   layout                       /* Layout macht Probleme beim Zeilenende */
  41.   on = 1                       /* Merken ob Layout ein war              */
  42. end
  43.  
  44. status 82                      /* Datei editierbar ? */
  45. if( result = 0) then do
  46.   okay1 "Datei ist nicht editierbar! Falls dies" CR || "doch erwünscht ist, CygnusEd auf Datei" CR || "editieren umschalten..."
  47.   exit
  48. end
  49.  
  50. if( open(outfile,BLOCKFILE,'W') = 0) then do
  51.   okay1 "Die Übergabedatei """BLOCKFILE""" ist " CR || "nicht zu öffnen! Abbruch..."
  52.   exit
  53. end
  54.  
  55. cedwort = csGetWord()        /* Wort unter Cursor von CygnusEd abholen  */
  56. writech(outfile, cedwort )   /* Wort in Übergabedatei speichern         */
  57. close(outfile)               /* Übergabedatei schließen                 */
  58. csdelword()
  59.  
  60. /* --- FTRANS --- */
  61.  
  62. address 'rexx_FTrans'          /* FTrans Arexx-Port suchen                */
  63.  
  64. FTEcho "off"                   /* FTransARexx-Echo auschalten             */
  65. message "Melde FTEcho ist:",   /* Dies auf FTrans-Ausgabeschirm mitteilen */
  66. result
  67.  
  68. OldPublicScreen                /* Alten PublicScreen abfragen             */
  69. oldpubscr = result             /* Alten PublicScreen merken               */
  70.  
  71. PublicScreen "CygnusEdScreen1" /* LernWindow auf Ced-Screen umschalten    */
  72.                                /* Nur möglich ab Kickstart 2.x und wenn   */
  73.                                /* CygnusEd als PublicScreen läuft.        */
  74.  
  75. Wort BLOCKFILE                 /* FTrans auf Wortübersetzung umschalten   */
  76.                                /* Dateiname in mit WORT in BLOCKFILE.     */
  77.  
  78. PublicScreen oldpubscr         /* LernWindow auf vorherigen PublicScreen  */
  79.                                /* zurückschalten                          */
  80.  
  81.  
  82. /* --- CygnusEd --- */
  83.  
  84. address 'rexx_ced'             /* CygnusEd Arexx-Port suchen */
  85.  
  86. include file BLOCKFILE         /* Block wieder einfügen, evtl. übersetzt */
  87.  
  88. if( on = 1 ) then do           /* Layout war eingeschaltet, */
  89.   layout                       /* dann wieder aktivieren    */
  90. end
  91.  
  92. address command 'c:delete >NIL:' BLOCKFILE  /* Austauschdatei löschen  */
  93.  
  94. exit 0
  95.